SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE FUNCTION [dbo].[FN_FECH_PAGO_Q01]  
/*------------------------------------------------------*/  
/*---- Empresa	: OFISIS S.A						----*/  
/*---- Cliente	: OFISIS S.A						----*/  
/*---- Sistema	: Tesoreria         				----*/  
/*---- Modulo	: Empresa           				----*/  
/*---- Programa	: Devuelve Fecha último Pago		----*/  
/*---- Desarrollado por	: Freddy Alvino				----*/  
/*---- Fecha Creacion	: 21/01/2005     			----*/  
/*---- Base de Datos	: SQL     					----*/  
/*---- Version			: 2000     					----*/  
/*------------------------------------------------------*/  
/*------------------------------------------------------*/  
/*---- Comentarios		: 							---*/  
/*---- Drop FUNCTION FN_FECH_PAGO_Q01				----*/  
/*---- Grant Execute on FN_FECH_PAGO_Q01 to public----*/  
/*----												----*/  
/*------------------------------------------------------*/  
/*----   
Declare @ODFE_ULTI_PAGO TD_DT_001
Select  @ODFE_ULTI_PAGO = dbo.FN_FECH_PAGO_Q01('01', '10056314810', 'FAC', '0001-0000000157')  
Select  @ODFE_ULTI_PAGO       ---*/  
/*----          ----*/  
/*------------------------------------------------------*/  
(
@ISCO_EMPR		TD_VC_002,
@ISCO_PROV			TD_VC_020,
@ISCO_TIPO_DOCU	TD_VC_003,
@ISNU_DOCU_PROV	TD_VC_020
) RETURNS TD_DT_001
  
As
BEGIN  
 Declare   

 @ODFE_ULTI_PAGO TD_DT_001
  
 Set @ODFE_ULTI_PAGO = ''
  
 /**** Operacion ******/  
 Select @ODFE_ULTI_PAGO = FE_VENC
 From  TMDOCU_PROV
 Where	CO_EMPR = @ISCO_EMPR And
		CO_PROV = @ISCO_PROV And
		CO_TIPO_DOCU = @ISCO_TIPO_DOCU And
		NU_DOCU_PROV = @ISNU_DOCU_PROV

 RETURN (@ODFE_ULTI_PAGO)  


END  
/******************************************************************************************/

GO
